perm filename DEM[JC,MUS] blob sn#084704 filedate 1974-01-28 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	ARRAY F1,F2,F3,F4(512)
C00003 ENDMK
C⊗;
ARRAY F1,F2,F3,F4(512);
SRATE←25000;MAG←512/SRATE;SPEED←2;NCHNS←1;
COMPILE;
INSTRUMENT DEM;
INTRP(P6*P5*MAG,P7*P5*MAG,P9);
OSCIL(U1,P5*MAG,P10);
ZOSCIL(P3,MAG/P2,P8);
ZOSCIL(U3,P4*MAG+U2,P11);
OUTA←OUTA+U4;
END;
FINISH;
SYNTH(F1);1 1 999